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ZTITLE ‘EDTSPRISTOK = test for particular token’ 
MODULE EDTSPRISTOK ( ! Test for particular tok 
gDENT = 'v04-000' ! Ff : 
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RSBTTL Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM'; 


FORWARD_ROUTINE 
EDTSSPA_TSTTOK; 


INCLUDE FILES: 


REQUIRE "EDTSRC:EDTREQ'; 
REQUIRE "EDTSRC:PARLITS'; 
REQUIRE "EDTSRC:PARTOKDEF'; 
REQUIRE 'EDTSRC:PARTOKTBL'; 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 

NONE 

EXTERNAL REFERENCES: 
; In the routine 
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ZSBTTL “EDTSSPA_TSTTOK = test for particular token’ 
GLOBAL ROUTINE EDTSSPA_TSTTOK ( ! Test for a perticuler token 
TOK_NUM e 


! Number of the model token 


t+ 
! FUNCTIONAL DESCRIPTION: 


This routine poneeres the current token 73 vescribed by 
EDTSSG_PA_TOKCLASS , EDTSSA_PA_CURTOK a 
EDTS$$G_PA_CURTOKLEN to the token specified by the input parameter. 


When EDTS$G_PA_TOKCLASS jis CL_NUM or CL_STRING the token will match only 

T_NUM and T_STR respect ively. Otherwise, compare the token to the token_table 

efitry specified by TOK_NUM. EDTS$G_PA PCENT will be on if the token 

yt tr —_ a '%' and in that case, check the bit to see if an optional percent 
s allowed. 


i FORMAL PARAMETERS: 


TOK_NUM The number of the model token 


i IMPLICIT INPUTS: 


EDTS$A_PA_CURTOK 
EDT$$G_PA~CURTOKLEN 
G-PA-PCENT 


i IMPLICIT OUTPUTS: 


NONE 


i ROUTINE VALUE: 


1 = token matches 


0 = token does not match 
i SIDE EFFECTS: 
i NONE 
BEGIN 
cate 
EDTSS$A_PA_CURTOK, ' start of the current token 
EDT$$G_PA_CURTOKLEN, ' Length of current token 
EDT$$G_PA_P ! Did the keyword contain a percent? 
EDTS$$G~PA~TOKCLASS; ! class of current token 
LOCAL ? 
TOK; ! Index into the token table of the token we are looking for | 


1 
ssa 


i 
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: Case on the token class. 


=1984 01:18: VAX=11 Bliss-32 v4.0-74 ° 4 
pryabe HaiaeOS | Na eddmtadSteacceot sacSpristox.eurs1e* «3s 


a4 
ahd 


se | ste insti FROM CL_NAME TO CL_STRING OF 


CCL_NUMBER] : 

IF (.TOK_NUM EQL T_NUM) THEN RETURN (1) ELSE RETURN (0); 
CCL_STRING) : 

IF (.TOK_NUM EQL T_STR) THEN RETURN (1) ELSE RETURN (0); 
CCLLNAME, CL_SPECIAL) : 

BEGIN 


WN —OODONOULSWN—OO0MW 


+ 

Get index of the token. 

; TOK = .TOK_INDX C.TOK_NUM = 1]; 
* BEGIN 

; Bind the token descriptor. 


BIND 
TOKEN = TOKEN_TABLE C.TOK] : BLOCK C2, BYTE]; 


+ 
Check for optional PERCENT. 
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IF (.EDTSS$G_PA_PCENT AND ( NOT .TOKEN CPAR_OPT_PERCENT])) THEN RETURN (0); 


ir 
! Jompare the token. 


IF ((.EDTS$G_PA_CURTOKLEN GEQ .TOKEN CPAR_MIN bene} AND ! 


SRSESRLESPORAS BSS AI ISSE SOPRA SENSES 


PIII II st ws st st st st st st an kk kk th th 


THEN Ee S86=PALCURTOKLEN LEQ . TOKEN CPARTMAX~LENGTH])) | 
p IF CHSEQL (.EDT$$G_PA_CURTOKLEN, .EDTSSA_PA_CURTOK, .EDTS$G_PA_CURTOKLEN, TOKEN CPAR_SYMBOL] | 
§ RETURN (1) 
ELS 
94 RETURN (0) 
38 ELSE 
38 RETURN (0); 
98 0 
go 0 END; 
$0 END; 
4 COUTRANGE) : 
0 N 
04 8 ASSERT (0); 
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RETURN (0); 
END; 
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\COPY\ 

\DEF INE\ 
\DELETE\ 


\KEYPAD\ 
\NOKEYPAD\ 
\MOVE\ 
\PRINT\ 
\QUIT\ 
\REPLACE\ 
\RESEQUENCE\ 
(SET\ 

\SHOW\ 
\SUBSTITUTE\ 
\TYPE\ 
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45 54 41 43 49 4C 50 55 re OFF -ASCII \DUPLICATE\ 3 | 
6 1 BYTE 99 : 
45 50 59 S54 GF 1 "ASCII \NOTYPE\ ; | 
4 10F «BYTE 66 : 
| 45 56 41 § 110 sASCII \SAVE\ : 
| 42 00114 “BYTE 66 ; | 
59 41 54 3 113 sASCII = \STAY\ : 
11 «BYTE 114 : 
53 52 465 42 4D 55 4g 11A -ASCII \NUMBERS\ : 
9 121 -BYTE 1 : 
53 52 45 462 4D 5S 4E GF & 122 -ASCII \NONUMBERS\ : 
| 4 01 B -BYTE 66 : 
45 53 41 4 ¢ ASCII \SASE\ : 
54 43 41 58 28 OO1% "ASCII \EXACT\ : 
¢ 01 BYTE 9 3 
48 43 52 41 45 01 sASCII = \SEARCH\ : 
* 00130 -BYTE 11 3 : 
4C 41 52 45 4E 45 47 001 : sASCII \GENERAL\ : : 
13 0014 «BYTE 114 : : 
44 45 466 GE 55 GF 42 00146 -ASCII \BOUNDED\ : : 
91 00140 .BYTE 11 : : 
44 465 46 GE 55 GF 42 4E 55 0166 .ASCII \UNBOUNDED\ : ; 
8¢ 0015 «BYTE -126 : ; 
4C 41 4& 49 4D 52 45 54 00158 “ASCII \TERMINAL\ : ; 
1 00160 .BYTE 1 : ; 
52 45 50 50 55 00161 -ASCII \UPPER\ : 
1 30196 -BYTE 1 ; 
52 45 57 4F 4C 0016 ASCII \LOWER\ : 
41 0016¢ .BYTE 6 : 
45 GE 4F 4E 0016D .ASCII \NONE\ : 
44 00171 .BYTE 6 : 
32 35 54 56 00172 eASCII \VTS2\ : 
55 00176 .BYTE 5 : : 
30 30 31 54 56 90177 eASCII \VT100\ : 
44 0017C¢ -BYTE 6 : : 
59 50 43 48 0017D ASCII \HCPY\ : : 
61 00181 -BYTE 97 : 
52 4F 53 52 55 43 00182 -ASCII \CURSOR\ : 3 S$ 
41 00188 .BYTE 65 : 7 R 
44 4C 4F 47 00189 -ASCII \GOLD\ : 7 € 
3 0180 .BYTE 115 : zt 
4C 4F 52 54 4E 4F 43 001 E -ASCII \CONTROL\ : iL 
2¢ 019 «BYTE 34 : : M 
53 O13 -ASCII \AS\ $ 3 ¢ 
83 0019 .BYTE -125 : 
59 46 49 52 45 56 4F af 0199 ASCII \NOVERIFY\ : 
§ O1A1 «BYTE -126 ; 
45 54 41 43 4E 55 52 54 OO1A2 <ASCII \TRUNCATE\ : | 
AS OOTAA .BYTE = : 
45 54 41 43 4E 55 52 54 4F 46 O1A8 -ASCII \NOTRUNCATE\ : | 
7 1B .BYTE : 
4E 4F 49 53 52 45 56 001B6 -ASCII \VERSION\ : 
41 18D -BYTE ; 
50 41 52 57 001B -ASCII \WRAP\ : 
41 001C -BYTE ; 
44 52 4F 57 OO01C -ASCII = \WORD\ : | 
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63 001C7 .BYTE 99 : 
50 41 52 57 4F i a1 “ASCII \NOWRAP\ : | 
4E 45 45 52 43 ICE ASCII \SCREEN\ : 
53 45 4E 49 4¢ 0106 “ASCII \LINES\ : 
4 108 “BYTE 6 ; 
45 46 GF 4D 10¢ "ASCII \MODE\ : 
51 OO1E “BYTE 81 : 
4F 52 43 41 4 1E1 ASCII \ACRO\ : 
59 54 49 54 4E 4 16? ASCII \ENTITY\ : 
45 47 41 50 OO1E "ASCII \PAGE\ : 
81 oie “BYTE 12 : 
45 43 4E 45 56 4E 45 33 O13 ASCII \SENTENCE\ ; 
48 50 41 52 47 41 52 41 20 $0205 “ASCII \PARAGRAPH\ : 
52 41 45 4¢ i$ 00 06 ASCII \¢ AR\ : 
4C 41 4E 49 47 49 52 af 00 o¢ ASCII \ORIGINAL\ ; 
54 45 49 55 31 00215 "ASCII \QUIET\ ; 
3 O021A "BYTE 11 : 
54 45 49 55 51 GF oF sere ASCII \NOQUIET\ 
54 43 45 4C 45 «(53 80 6 ASCII \SELECT\ : | 
2 00229 "BYTE 50 ; 
42 41 54 00 A ASCII \TAB\ : 
3 O20 BYTE 83 : 
odnu « 46 0 ee ASCII \NOTAB\ : 
43 002 BYTE 67 : 
4C 4C 49 46 00234 "ASCII \FILL\ : 
61 00 8 "BYTE 97 : 
54 53 55 GA 46 41 00 9 “ASCII \ADJUST\ 
45 54 45 4C 45 Gh 00840 ASCII \DELETE\ 
54 41 45 50 45 3 0 47 ASCII \REPEAT\ ; 
54 41 45 50 45 52 4F bf O0GKE ASCII \NOREPEAT\ ; 
46 4E 46 § “ASCII \ENF\ : 
5 A "BYTE : 
46 4E 46 4F H 0 38 ASCII \NOF NF \ | 
53 50 0261 "ASCII \wPS\ : 
¢ 0264 BYTE 5 
59 52 41 4D 4D 55 33 0 $5 “ASCII \SUMMARY \ | 
59 52 41 4D 4D 55 53 4F SE 00260 “ASCII \NOSUMMARY \ | 
54 50 4D 4F 52 5) 0 rt ASCII \PROMPT\ : 
45 4& 49 4 6 43 “ASCII \LINE\ : 
66 8 "BYTE 1 : | 
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4C 4C 4F 52 43 
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5449 42 54 48 47 49 
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ASCII \INSENSITIVE\ 
“ASCII \CIN 

“BYTE 34 

TASCII \DI\ 

“BYTE -125 

ASCII \F NCTION\ 
ASCII \SCROLL\ 
ASCII \NOSCROLL\ 
ASCII \EIGHTBIT\ 
“ASCII \NOEIGHTBIT\ 
“ASCII = \EDIT\ 
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44 41 $0 59 45 48 0 3 eASCII \KEYPAD\ : | ‘ 
8 -BYTE = =1 : : 
44 41 50 59 45 4B 4F $5 A “pega! Mt hice : ° 
45 47 4E 41 48 43 43 48 3 ASCII \HCCHANGE\ ; : 
68 0298 -—BYTE 10 : ; 
54 52 45 53 4E 4 029 ASCII \INSERT\ : : 
77 8 A -BYTE 119 $ ¢ 
4E 54 52 45 53 4E 49 A eASCII \INSERTN\ : ‘ 
| 92 QOGAA “BYTE 85 : ; 
| 59 52 45 55 51 00 ae ASCII \QUERY\ ; : 
43 8 B BYTE 67 : ‘ 
| 54 58 45 34 BI ASCII = \TEXT\ : ; 
| 3 0285 -BYTE 51 ; : 
44 4E & 0286 eASCII \END\ : ‘ 
$8 00289 -BYTE 66 ; ‘ 
45 47 41 5 O2BA ASCII \PAGE\ : : 
4¢ O2BE -BYTE 66 ’ : 
44 52 4F 5 O2BF «ASCII \WORD\ 3 ° 
92 002C3 «BYTE <=11 : : 
52 45 54 49 4D 49 4¢€ 45 44 002C4 eASCII \DELIMITER\ : ‘ 
B4 99 CD -BYTE -76 ; : 
52 45 54 49 4D 49 4C 45 44 GF 35 O2CcE eASCII \NODELIMITER\ 3 ° 
5 Basey -BYTE = 3 : 
48 50 41 52 47 41 52 4! 0 OO2DA eASCII \PARAGRAPH\ : ‘ 
§ 002E3 BYTE F ‘ 
53 50 002E4 ASCII \WPS\ : : 
54 002E7 -BYTE ; : 
53 50 57 4F ag 002E8 eASCII \NOWPS\ 3 ° 
A? O02ED -BYTE 89 ; : 
54 41 45 50 45 52 4F 54 55 ¢} BaSER “etal \AUTOREPEAT\ é ° 
54 41 45 50 45 52 4F 54 55 41 GF 4E a0s9 eASCII \NOAUTOREPEAT\ 3 ‘ 
77 00305 -BYTE ; ’ 
44 4E 41 4D 4D 4F 43 00306 eASCII \COMMAND\ 3 ‘ 
52 00300 -BYTE ; ‘ 
53 45 4C 49 46 Boass eASCII \FILES\ 3 ‘ 
B7 0031 -BYT -7 3 : 
4C 41 43 49 54 49 52 43 41 49 44 00314 eASCII \DIACRITICAL\ : : 
87 ta BY 3 . 
33 00398 ; 
23 0 C : ‘ 
¢¢ E 3 : 
4 f ; o 
83 1 3 : 
46 2 : : 
cS his ; : 
ag 2 3 
$ A 3 
A? 00388 
4E 4 ; 
44 E $ 
45 F 3 


Pa 


VAX-11 Bliss-32 Fe sPelee ge } 
DISKSVMSMASTER: CEDT.SRCJPRISTOK.BLI;1 ( 


A 
I 


7 


1986 92:26:09 


1b-se 
14-Se 


articular token 
446 45 &F 


p 
- test for particular token 


54 49 


SPRISTOK = test for 


1 
TSSPA_TSTTOK 


ED 
ED 


c: He 1 Sag 


-—— 


WOOF = SNM 8 ONT ™ TN 
TT HMO O-- DOD TMOOMMOUM 
~w ow eoco 
esewewWOe ee se wTFes ss 
cu MMrMO = drm st 


ooo 
owt 


ss wIO ss 8 MV wr Fe 8 8 


MWR NAT OO hk 
or o 


ooo «+ 


NWN Or ere 


So 


NTTOOR. ORK RK NRK FE MOWNIM 


o oo 


ees eee eee Mm eeee ss 
QOowd «fF MOOeMN FOTNO 
OMOMDORNDe — we VOM 
ak OCCr 


NTT ON OR — Oe 
- oa 


* ses & * es © & &© & & * es © &© & 
SAWK GAOOmuee myuanone 
NOR. FOTMNOO— OP DOMO 
HK 2OK NT TOM. OR OF  — OMNOMm 


<DVOTDVOSTOVOSTOVYO 
OOOO << MOwuO rue 
Sl ell ell ell ll ll ll tall ll ll ll b> i > > > > Sf 
B88 9 OOOO OS SSS 
SOCCOOCOOCOOOOCOoSooO 


OWO We f- OO DuurhOce-O 
OoTO wet eOwWOdOnK FUR No 


So- OK UNVNOOOCONN:— 
COoooooooSsoooooo 


eTVKKAVOROYOO— 
a- <Var. Or our. 


ee 
6 
1 
7 
5 
9 
0 
E 
E 


——-OOMPMMIMOO-— VON 
pole leleleleleleleleleleoleleo) 


NAVA LMOMMrwINOOO 


YWOOCO Unga <OwNr 
Ve wTrTOOrmnm Oar Wa 
OMOOMPIMOOn — VOW 


vVw<etoato MN wi Ts 
WK ONINS Sao Ses 
Oeoooooe Ooooo 


pay tet gt, gt tt Ae poet | 
NOoOMeO wa ah OINO wr 
O- OQNMNVNOOONDK NK Ve 
Ooooococccoooooc: 


QV. Ne WOMUMOWO 


OuMNiImMoOvur- WOT uO 
moeame oor Noe’ 
oo°o°o polo lo lola he) 


WODN OMY VLNOWwTO 
sd aor «v weve 


SoooeSssssaceo 
Ne Nee 


® OMOwVrMmM OowmM Oo 
wwe hw OMor ae 
. 


LAIMA CUMIN) 
w 


ss @NO 8+ 8 8 te FF 8 8 8 8 8 
reer. @oooo Fs Me oM 


CURTOKLEN 


CURTOK 
PCENT 
TOKCLASS 
_ERR 


-PAL 
PA_ 
PA_ 

ATER 


P.AAA 

P.AAB 
$$A 
$$G 
$$G 
$$G_PA 
$$1 


TOKEN_ TABLE 
Nox 


TOK_I 


el @aoco sr -—- Os Oo = oO 
ow coo OK KO CO oo oe o 
o- NNMK MK KF er eK - =- - 
-— COP Ff Ff FEF & = - 
SS PSPSPS FOSS PSPS SR SS TSR FCS FSFE SES FER FER HERES HR FR HE HR FEHR HR He 
me 
aw 
o 
Ns o 
Zo e 
= 
v N bd - 
>. war 2 ae 
awn a oO wo w 
nn « — all s 
z= uw mas MeO Oo «we 
ead i =e Ofc & On 
ww a ro2z - | 
Ox w Orw a&s + ee 
-oO ee euuvwKrrdn- = Dw~ 
bee ee Zz — WW Ops“waronm wv ve 
w” 1 — 2&2 2 aw | = « ft 
-— 2 (a= <«~ ~ «+ 
a FA . . *x<<a-—a. an 
<x wee _— = = ss- ts . e 
awe+ess G&G 2 esoanvonrn wr <a oO 
PRPARHHKHOW FZ Zz Z=-Zeai~-esesezuzE B= H~ 
AA——— — " 4 ‘(ae Pe 
—— 1 => wt ww See 8 >. -_ . 
QARAAAAHOHOFKHOKHOCOAMACHTHOOKH— 
Wut Mah Or OF WwW Br wrr.& 
> aft 
eia ” Ft > > La) 
S35 9 _ Jwe we aS SSBuSacassaes 
wits <craze jADMOZveE tsOftZzZOw 
wee bat tet-tet-t + 2 4-}-} tet tet} tet t a4 
fF A ee rd 
Nn Mm wo o 
N ~N DEY Or WE WOW WIPO 
S38 Sopouasssassssosossss 
ooo SSSSOSSSoCSee COOoooooocoo 
ooo SOoooooooooooQoQoooooooo 
vou QOeqenrnrm— “OCOVUWO-- COs OCOoOoOwoy 
&— Om Oem OMOWWOWe We ON OO 
o 
oa OWONCVLVOOOMOOO FNOOT— 
on ov fT Mew T OOOO KK Or Omoo 
are 
wu 
oOo o o oo 
o Tr Fr TVec"”so SC So 
So o Oo oOo oO oe 
—) woo 4 o 
o to to So 
o S So oS 
S ss S 
Oo oS S So 
or oer WM COONMWTNOM TF ee CO 
oOo ocUcmOmlCcCOllUhMNMOOMO UOC NOC 
o 
o 
o 
oe 
=] 
o 
oS 
oS 
o 
Mma ~ ru ww ~N 
o- nos «< 
a 
o 
o oO 
ww 


0017 


1 
VBc=000°'™ —«EDTSSPASTSFrox"*= cect Por‘particutar token — 12-Sepm19b4 $3:52:09 DE SbuMGMASPERSCEDT sRCSPRIsToK.eLI:1°% (4) 
50 p4 00069 78: LAL «RO ; 1213 


; Routine Size: 108 bytes, Routine Base: _EDTSCODE + 047E 


; $19 iste 1 
; 21 1215 1 !<BLF/PAGE> 


ET Sl 


| EXTSPRISTOK EDTSPRISTOK mt ee for particular token 
fO4~000 EDTSSPA_TSTT - test ter particular token 
3 13 1 1 1 END 
; 14 121 1 
: 15 1 18 0 ELUDOM 
: PSECT SUMMARY 
i Name Bytes 
: _EDTSCODE 1258 NOVEC,NOWRT, RD, 
: Library Statistics 
PO ae he CR ee 2 Symbols 
: File Total Loaded 
: _$255$DUAZ8:CEDT.SRCJEDT.L32:1 377 
> _$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 
: COMMAND QUALIFIERS 


2:24: 
! of module EDTSPRISTOK 


Attributes 
EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 


escccece Pages Processing 
Percent Mapped Time 
é 40 00:00.2 
5 7 00:00.1 


1 
ep =1383 9}: :18: +38 VAX-11 Bliss-32 V4.0-7 
ep-19 DISKSVMSMASTER: CEpT. She PRISTOK.BLI;1 


e 12 
a9 (4) 


sel 


ISS /CHECE SCE SELD, INE TEAL OPTIMIZE) /HOTRACEBACK/L LSH1. 158 :PRISTOR/08)=08J8 :PRISTOR MSRC$:PRISTOK.BLI/UPDATE=(ENH$:PRISTOK 


Size: 108 soge + 1150 data bytes 


E Lapsed Tine: 0: ad 
Lines/CPU Min: 
Lexemes/CPU-Min: 13133 
ry Used: 121 pages 
Compilation Complete 
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